% dim table_width
dim td_width
Dim odbc
Dim title
Dim webmasterEmail
Dim website
title = "爱慕设计"
table_width=119
td_width=59
%>
<%
dim DSNString
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source="&server.mappath("database\system1.mdb")
DSNString = Provider & DBPath
Dim cnndb
on error resume next
Set cnndb=Server.CreateObject("ADODB.connection")
if err.number<> 0 then
cnndb.close
set cnndb = nothing
Response.write "创建数据库对象时出错,请重新再试"&err.description
Response.end
end if
cnndb.connectionString = DSNString
cnndb.open
if err.number<> 0 then
cnndb.close
set cnndb =nothing
Response.write "打开数据库时出错,请重新再试" &err.description
Response.end
end if
if request.cookies("visit")="" then
sql="update [counter] set [counter]=[counter]+1"
cnndb.execute sql
response.write err.description
response.cookies("visit")="1"
end if
%>